home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 5 / Amiga Tools 5.iso / tools / dtp / easy_print / easyprint_pch / install < prev    next >
Encoding:
Text File  |  1996-07-16  |  7.0 KB  |  159 lines
  1. ;
  2. ; Script di installazione per EasyPrint 2.24 (4 lug 1996)
  3. ;
  4.  
  5. (if (= @language "italiano")
  6. (
  7.         (message
  8.                 (cat      "\n\n\nEasyPrint, script di upgrade.\n"
  9.                           "Questa procedura installa l' ultima versione di EasyPrint sul vostro Amiga.\n\n"
  10.                           "(C) Copyright 1995-1996 Andrea Latina."
  11.                 ))
  12.  
  13.  
  14.         (while (NOT (exists (set eprint-path
  15.                                 (tackon
  16.                                     (askdir
  17.                                         (prompt  "Seleziona la directory in cui hai installato EasyPrint")
  18.                                         (help    @askdir-help)
  19.                                         (default "SYS:")
  20.                                     ) "EasyPrint" ))))
  21.             (message "\nATTENZIONE!\n\nEasyPrint non risulta essere installato in questa directory."))
  22.  
  23.         (if (= (exists eprint-path) 2) (set eprint-path (tackon eprint-path "EasyPrint")))
  24.  
  25.         (if (NOT (exists ("%s.key" eprint-path))) (abort "ATTENZIONE!\n\nLa versione installata è solo una DEMO,\nquindi non è possibile applicarvi alcun patch!"))
  26.         
  27.         (set eprint-vers (getversion eprint-path))
  28.         (set eprint-ver (/ eprint-vers 65536))
  29.         (set eprint-rev (- eprint-vers (* eprint-ver 65536)))
  30.  
  31.         (message ("\nLa versione attualmente insallata è la 2.%ld,\n\napplico il Patch alla versione 2.24 ?" eprint-rev))
  32.         
  33.         (select (- eprint-rev 21)
  34.              ((run  ("Spatch -o%s -pep_patch/from_21_to_24.pch %s" eprint-path eprint-path))
  35.              (copyfiles
  36.                 (prompt "Copio i nuovi files...")
  37.                 (source "ep_files/")
  38.                 (help @copyfiles-help)
  39.                 (dest (pathonly eprint-path))
  40.                 (all)
  41.                 (optional force))
  42.                 (if (exists ("%s_ITA.guide" eprint-path))
  43.                     (copyfiles
  44.                         (prompt "Copio la nuova documentazione....")
  45.                         (source "ep_docs/EasyPrint_ITA.guide")
  46.                         (help @copyfiles-help)
  47.                         (dest (pathonly eprint-path))
  48.                         (optional force))))
  49.              ((run  ("Spatch -o%s -pep_patch/from_22_to_24.pch %s" eprint-path eprint-path))
  50.              (copyfiles
  51.                 (prompt "Copio i nuovi files...")
  52.                 (source "ep_files/")
  53.                 (help @copyfiles-help)
  54.                 (dest (pathonly eprint-path))
  55.                 (all)
  56.                 (optional force))
  57.                 (if (exists ("%s_ITA.guide" eprint-path))
  58.                     (copyfiles
  59.                         (prompt "Copio la nuova documentazione....")
  60.                         (source "ep_docs/EasyPrint_ITA.guide")
  61.                         (help @copyfiles-help)
  62.                         (dest (pathonly eprint-path))
  63.                         (optional force))))
  64.              ((run  ("Spatch -o%s -pep_patch/from_23_to_24.pch %s" eprint-path eprint-path))
  65.              (copyfiles
  66.                 (prompt "Copio i nuovi files...")
  67.                 (source "ep_files/")
  68.                 (help @copyfiles-help)
  69.                 (dest (pathonly eprint-path))
  70.                 (all)
  71.                 (optional force))
  72.                 (if (exists ("%s_ITA.guide" eprint-path))
  73.                     (copyfiles
  74.                         (prompt "Copio la nuova documentazione....")
  75.                         (source "ep_docs/EasyPrint_ITA.guide")
  76.                         (help @copyfiles-help)
  77.                         (dest (pathonly eprint-path))
  78.                         (optional force))))
  79.             (message "\nATTENZIONE!\n\nQuesta versione è la piu' recente.")
  80.         )
  81. )
  82. (
  83.         (message
  84.                 (cat      "\n\n\nEasyPrint, upgrade to latest version.\n"
  85.                           "This process install the latest version of EasyPrint on your Amiga.\n\n"
  86.                           "(C) Copyright 1995-1996 Andrea Latina."
  87.                 ))
  88.  
  89.  
  90.         (while (NOT (exists (set eprint-path
  91.                                 (tackon
  92.                                     (askdir
  93.                                         (prompt  "Select directory where have installed EasyPrint")
  94.                                         (help    @askdir-help)
  95.                                         (default "SYS:")
  96.                                     ) "EasyPrint" ))))
  97.             (message "\nWARNING!\n\nEasyPrint isn't installed in this directory!"))
  98.  
  99.         (if (= (exists eprint-path) 2) (set eprint-path (tackon eprint-path "EasyPrint")))
  100.  
  101.         (if (NOT (exists ("%s.key" eprint-path))) (abort "WARNING!\n\nThis version is only a DEMO!!,\nTherefore i can't apply a patch."))
  102.         
  103.         (set eprint-vers (getversion eprint-path))
  104.         (set eprint-ver (/ eprint-vers 65536))
  105.         (set eprint-rev (- eprint-vers (* eprint-ver 65536)))
  106.  
  107.         (message ("\nVersion installed at present is 2.%ld,\n\napply the Patch to version 2.24 ?" eprint-rev))
  108.         
  109.         (select (- eprint-rev 21)
  110.              ((run  ("Spatch -o%s -pep_patch/from_21_to_24.pch %s" eprint-path eprint-path))
  111.              (copyfiles
  112.                 (prompt "Copying new files...")
  113.                 (source "ep_files/")
  114.                 (help @copyfiles-help)
  115.                 (dest (pathonly eprint-path))
  116.                 (all)
  117.                 (optional force))
  118.                 (if (exists ("%s.guide" eprint-path))
  119.                     (copyfiles
  120.                         (prompt "Copying new docs....")
  121.                         (source "ep_docs/EasyPrint.guide")
  122.                         (help @copyfiles-help)
  123.                         (dest (pathonly eprint-path))
  124.                         (optional force))))
  125.              ((run  ("Spatch -o%s -pep_patch/from_22_to_24.pch %s" eprint-path eprint-path))
  126.              (copyfiles
  127.                 (prompt "Copying new files...")
  128.                 (source "ep_files/")
  129.                 (help @copyfiles-help)
  130.                 (dest (pathonly eprint-path))
  131.                 (all)
  132.                 (optional force))
  133.                 (if (exists ("%s.guide" eprint-path))
  134.                     (copyfiles
  135.                         (prompt "Copying new docs....")
  136.                         (source "ep_docs/EasyPrint.guide")
  137.                         (help @copyfiles-help)
  138.                         (dest (pathonly eprint-path))
  139.                         (optional force))))
  140.              ((run  ("Spatch -o%s -pep_patch/from_23_to_24.pch %s" eprint-path eprint-path))
  141.              (copyfiles
  142.                 (prompt "Copying new files...")
  143.                 (source "ep_files/")
  144.                 (help @copyfiles-help)
  145.                 (dest (pathonly eprint-path))
  146.                 (all)
  147.                 (optional force))
  148.                 (if (exists ("%s.guide" eprint-path))
  149.                     (copyfiles
  150.                         (prompt "Copying new docs....")
  151.                         (source "ep_docs/EasyPrint.guide")
  152.                         (help @copyfiles-help)
  153.                         (dest (pathonly eprint-path))
  154.                         (optional force))))
  155.             (message "\nWARNING!\n\nVersion already installed is the latest.")
  156.         )
  157. )
  158. ) ; if
  159.